home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-20 / fdlog102.zip / BANDLIST.PRG < prev    next >
Text File  |  1991-04-02  |  326b  |  16 lines
  1. SET TALK OFF
  2. USE LOGGER INDEX SEQUENCE, CALL
  3. STORE "      " TO call
  4. SET TALK ON
  5. @ 0, 0 CLEAR TO 24, 79
  6. @ 10, 15
  7. ACCEPT "ENTER BAND DESIRED: (40, 15, ETC.) " TO bnd
  8. SET TALK OFF
  9. ? CHR(15)
  10. SET PRINT OFF
  11. REPORT FORM BANDLIST FOR band=bnd TO PRINT NOCONSOLE
  12. SET PRINT ON
  13. ? CHR(27)+CHR(64)
  14. SET PRINT OFF
  15. DO RPTMENU
  16.